ED Apple Assembly Line 


Volume 1 -- Issue 3 December, 1980 


As I write this, there are 85 paid subscribers! I sent 

out about 140 flyers in the last two weeks, so maybe the 
number will double again next month! Pass the word to your 
friends and local Apple clubs...and let me know how you 
like the content, style, et cetera. 
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Quarterly Disk #1 


If you find there just isn't enough time to type in all 

the source programs in the Apple Assembly Line, I will be 
happy to save you the trouble. Every three months I will 
put together a "Disk of the Quarter" which contains all 

the source in the format of the S-C ASSEMBLER II Version 4.0. 
The price is ‘only $15, and I will pay the postage. 


The first such disk is ready now, covering October, November, 
and December of 1980. The disks and the programs are for 
subscribers only. Save your fingers, get yours now! 
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Help for beginners 


I will write some beginner's material from time to time for 
this newsletter, but I cannot cover every base at once. 
Meanwhile, many of the magazines and club newsletters are 
beginning to publish articles for beginners who want to lear 
assembly language. One of the best and most accessible is 
Creative Computing. Chuck Carpenter's "Apple-Cart", a monthly 
feature, in the November, 1980 issue, was great! He actually 
began the subject of machine language in the Ottober issue, but 
in the November one he covered indexing, indirect addressing, 
and interrupts. By the way, Chuck is also a subscriber to 


the Apple Assembly Line. 

There have also been some good beginner articles in recent 
copies of Nibble and Softalk. Nibble has been printing a lot 
of assembly language programs, which are good to study. 


Intelligent Disassemblers 


Not one, but two! In this issue of AAL you find two ads for 
intelligent disassemblers. Dr. Robert F. Zant, of Decision 
Systems, and Bob Kovacs, of RAK-WARE, have each written one. 
After all these years, two of them pop up in the same week! 


Dr. Zant's reads a binary file and writes a text file which 

can be EXECed into either the S-C ASSEMBLER II Version 4.0 

or the Apple assembler from the DOS Tool Kit. He writes 

an intermediate text file during pass one of the disassembly, 
and then reads in back in, formats it for the desired assembler, 
and writes it back out. His disassembler is a combination 

of machine language code and Applesoft code; you have to have 
Applesoft in ROM and at least 32K RAM. He includes a couple 

of handy utility programs on the diskette. 


Bob Kovac’s disassembler works from a binary program already 
in memory. Both passes are performed in memory, and then 

the text file is written. Since everything is done in memory, 
it is very fast. The resulting text file is EXECed into the 
S-C ASSEMBLER II Version 4.0. 


Both disassemblers create labels for all branch addresses 
inside the block being disassembled. Bob Kovac's version also 
makes labels for all external branch addresses, putting .EQ 
lines at the beginning to define them. The RAK-WARE version 
also makes symbols for all page-zero references. They also 
are set up with .EQ lines at the beginning of the text file. 


Both disassemblers output a control-I at the beginning of each 
line rather than a line number. This causes the assembler to 
generate its own line number when the file is EXECed, and allows 
you to set your own increment and starting line number just 
before typing the EXEC command. Set the increment by using 

the INC command; and set the starting line number by typing 

the number you want less the increment, followed by a space 

and return. 


I forgot to mention, Bob Kovac's disassembler works with either 
Integer BASIC or Applesoft. He has driver programs written in 
both languages included on the diskette. 


They both are excellent tools, which have long been needed. 
They both cost the same, $25. What can I say? Buy them both! 
Do it before the end of 1980, and get a tax deduction before 
Reagan and our new Congress lower the income tax rate! 


Advertising in AAL 


For the first time, there are some ads in your newsletter. 

I think you will find them almost as useful as the non-ad 
material, because so many of you have asked me for compatible 
two-pass disassemblers to go along with the S-C ASSEMBLER II. 
If you have written some programs that you want to sell, which 
you think other readers of the Apple Assembly Line would be 
interested in, you can advertise here, too. The cost is quite 
low...$20 for a full page, $10 for 4 page. 
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Integer BASIC Pretty Lister 


About 24 years ago Mike Laumer, of Carrollton, Texas, wrote a 
program to make pretty listings of Integer BASIC programs. He 
gave me a copy to look at, and then we both forgot about it. 

A few days ago I found it again, dusted it off, typed it in, 
and tried it out. After a little debugging, here is the result. 


Which is neater? 100 FOR I=1 TO 40: A(I)=I: A(I+41)=I*I:; NEXT I 


or? 100 FOR I=1 TO 40 
: A(I)=I 
: A(I+41)=1I4I 
: NEXT I 


Mike and I happen to like the latter format, especially for 
printing in newsletters. It is a lot easier to read. And why 
print it if no one is going to read it? 


If you are in Integer BASIC, and you have a program in memory 
ready to list, here are the steps to get a "pretty listing". 
1. BLOAD B. PRETTY. LISTER 
2. POKE 0,40 (or whatever number of characters per line 
3. CALL 2048 you wish it to use) 


If you want it to print on your printer, be sure to turn it on 
in the way you usually do before the CALL 2048. For example, 
if you have a standard Apple interface in slot 1, type "PR#1" 
just before the CALL 2048. 


If you check it out, you will find a lot of similarity between 
the code in this program and what is stored in the Integer BASIC 
ROMs around locations $EOOC through EOF9. The routines are not 
in the same order, and there are a few significant changes to 
make the listing "pretty" and to control the line length. As 

I was typing in Mike's program, I took the liberty of "modular- 
izing" it a little more, so that I could understand it. The 
PRINT.DECIMAL routine in lines 2500-2810 is almost identical to 
the one at $E51B in the BASIC ROMs. The changes are for the 
purpose of counting the number digits actually printed; this 
allows a closer control over line length. 


Since one of the promised features of the Apple Assembly Line 
was commented disassemblies of some of Apple'’‘s ROM code, I will 
try to explain how PRETTY.LIST works in some detail, module by 
module. You can then apply my explanation to the code which 
resides in ROM at $EOOC-$EOF9. 


PRETTY.LIST: This module is the overall control for the listing 
process. Since PP points to the beginning of the BASIC source 
program, lines 1270-1300 transfer this pointer into SRCP. Then 
SRCP is compared with HIMEM, to see if we are finished listing. 
The check is made before even listing one line, because it is 
possible that there is no source program to list! If the value 
in SRCP is greater than or equal to the value in HIMEM, then the 
listing is finished, and PRETTY.LIST returns to BASIC by JMP to 
DOS.REENTRY ( 3D0). If the listing is not finished, I call 
PRINT.ONE.LINE to format and print out one line of the source 
program. "Qne line" may be several statements separated by 
colons. Then I jump back to the test to see whether we are 
through yet, and so on and on and on. 


oTF BLPRETTY.LISTER 
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PRINT.ONE.LINE: A source line in Integer BASIC is encoded in 
token form, and this routine has to convert it back to the 
original form to list it. First, let's look at how a coded 
line is laid out. 


1o¥tes| AiRGer body of source line 


The first byte of a line is the line length; we will ignore 

it in this program, because we do not need it. The last byte 
of each line is the hex value $01, which is the token for end- 
of-line. That is all we need to signal the end of a line, 
and the start of another one. The second and third bytes of 
each line are the line number, in binary, with the low byte 
first. The body of the line is made up of a combination of 
tokens and ascii characters. 


For the most part, tokens have a hex value less than $80, while 
the ascii characters have a hex value greater than $80. One 
important exception is the token for a decimal constant. These 
are flagged by a pseudo-token consisting of the first digit of 
the constant in ascii (hex $BO through B9); after the token, 
two bytes follow which contain the binary form of the constant 
with the low byte first. For example, the decimal constant 
1234 would be stored in three bytes as: B1 D2 o4. 


The task of PRINT.ONE.LINE is to scan through the coded form 
of a line, printing each ascii character, and converting each 
token to its printing form. In addition, the routine must 
count line position as it goes, so that a new line can be 
started when one fills up. Furthermore, we want it to start 


a new line whenever the ";" indicates a new statement has begun 
within a line. We have to look out for REM statements and 
quoted strings, because the ":" might appear in them without 


Signalling a new statement. 


Lines‘ 1400-1460 start the ball rolling. The line position is 
set to zero, and the fill flag for the PRINT.DECIMAL routine is 
set to produce a right-justified-blank-filled number. Then 
GET.NEXT.BYTE is called to advance the SRCP past the byte count 
in the first byte of the line. GET.NEXT.BYTE returns the value 
of the byte in A, and with Y=0. This time we ignore the value 
in A, and use the fact that Y=0 to clear A. 


Lines 1470-1510 pick up the two bytes of the line number and 
call PRINT.DECIMAL to print it out. These same lines will be 
used later to print out any constants which are in the line. 
These lines are entered this time with A=0 and with IB.FILL 
set for the RJBF mode (right-justified-blank-filled). Later 
for constants they will be entered with IB.FILL set for print- 
ing with no leading blanks, and with A#O. The value in A is 
used to set IB.FLAG, which determines whether a trailing blank 
will be printed. One will be printed after the line number, 
but not after a constant inside a line. (For a character that 
uses so little ink, blanks can sure eat up a lot of code!) 


At line 1520 the main body of the PRINT.ONE.LINE routine begins. 
CHECK.EOL.GET.NEXT.BYTE decides whether we are getting too close 
to the end of the line. This prevents splitting token-words 


in half, with a few characters dangling off the end of one 
line, and the rest starting a new one. (At least, on the 
screen it would look like that; on a printer it might just 
print out into a margin.) The routine will start a new line 
before returning if the end is too near. When it finally does 
return, the next byte will be in A, and Y will be zero. If 
the next byte is a token (less than $80), control branches to 
line 1720. If the first bit of the byte is 1, and the second 
bit is 0, the code at lines 1550-1580 assumes the pseudo-token 
for a constant has appeared. If the second bit is also 1, the 
byte is an ascii character. Before printing the character, 
lines 1590-1630 may print a blank. This would be a trailing 
blank after printing a token or a line number. The character 
is then printed at lines 1640-1650, and another end-of-line 
check is made. This time "too near the end” is defined as 
within 3 spaces. The next byte must either be a token or 

yet another ascii character, so a determination is made in 
lines 1680-1700. 


Tokens are harder to handle, because we have to test for 
several special cases, and if not a special case the token 
table must be searched to find the token's name. Lines 1720- 
1740 test for the end-of-line token; if this is it, a carriage 
return is printed and PRINT.ONE.LINE returns back to its caller. 


If the token is the new-statement-token, used for ":", a new 
line is started. Then the fun begins: we have to search the 
token table. This table is the most recondite portion of the 
whole Apple computer! I have only scratched its surface. 

The table is located between $ECOO and $EDFF, but it is not 
in that order. It goes like this: first $EDOO, then $EDFF- 
$EDO1 (yes, backwards!), then $ECO0O, then $ECFF-$ECO1. The 
names for all the tokens are stored in the table, along with 
various bits of information about precedence and syntax. 

If you print out the table, you will not see any names... 
Steve Wozniak subtracted $20 from each byte before putting it 
into the table. Well, there is a lot more to it than that, 
but I am getting lost, side-tracked. 


After finding the token's name string inside the token table, 
we have to print it out. This is done in lines 1840-1940. 
The name is terminated either by the last character having a 
value greater than $BF, or by the next character in the table 
having a value less than $80. The routine at $E00C decides 
whether or not to print a trailing blank, I think. 


After printing the token's name, lines 1960-2010 test for 

REM or a quoted string. Either of these would be followed by 
a bunch of ascii characters terminated by a token, so control 
branches to line 1660 to print them out. If neither, we go 
back to line1520, to get the next token, or whatever. 


Somehow I skipped over line 1830. I believe the JSR $EFF8 
determines whether or not to print a space in front of the 
token name. 
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FIND.TOKEN: Lines 2040-2110 set up a pointer to the half of 
the token table which contains the name string for the token 
we wnat. Tokens 00 through 50 are in the first half, and 

51 through 7F are in the second half. 


Lines 2120-2250 scan through the table, counting token names 
as they are passed. When the nth one is found, where n is the 
token value, the routine returns. It returns with A=0, and 


Y = offset in the half of the token table we have been scan- 
ning. 


CHECK.EOL.GET.NEXT.BYTE: Enter this routine with A contain- 
ing the number of bytes short of the end of the line you want 
to test for, as a negative number.’ If too near the end, 
CR.7.BLANKS will be called to start a new line. In any case 
the routine exits by transfering to GET.NEXT.BYTE to get the 
next byte from the source line. 


CR.7.BLANKS: Prints a carriage return and 7 blanks to start 
a new line. 


CHAR.OUT: Simply counts columns and then calls on.the Apple 
monitor to print out a character. We need to count columns 
for CHECK.EOL.GET.NEXT. BYTE. 


PRINT.DECIMAL: Lifted out of Integer BASIC from $E51B, and 
modified to eliminate the ability to store the converted 
number in the input buffer, and to add the ability to count 
output characters. 


Additions to this program: You might like to add some more 


features to this program. For example, it would be nice to 
have it request the line length and printer slot number 
itself, and turn the printer on and off. Also it would be 
helpful to add indentation for FOR...NEXT loops and IF...THEN 
statements. The same program could be merged with a cross 
reference program to build and print a variable and line 
number cross reference. 


If you decide to try any of these, or any other enhancements, 
why not write them up and send them to me for publication? 
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Allow List of Expressions with .DA Directive 


Some customers have said they wished the .DA directive in the 
S-C ASSEMBLER II allowed more than one expression per line. 
For example, ".DA 1000,100,10,1" would then produce 8 bytes 
of code just as though there were four separate .DA lines. 
(Once and a while I wish it worked this way too!) 


The following little patch will transform your .DA in just that 
way. Because of the .OR and .TF directives, assembling these 42 
lines will produce two binary files that are ready to BLOAD. 
When you BLOAD them, the copy of the assembler in memory will 

be patched. You can then BSAVE the assembler (use a different 
name!), and you have the new capability. 


If you do not have version 4.0 of the assembler, then this 
patch will not work. If you have one of the very earliest 
copies of version 4.0, it may have some different addresses. 
Check it out before you type in the code: at $20D4 you should 
find three JMP instructions, as indicated in the comments here 
in lines 1210 through 1230. If you find those JMP's, go right 
ahead and make the patches. Of course, if you have already 
added some code at 24B0, then you will have to put this patch 
somewhere else. 


If you do not find those JMP instructions at 20D4, but you do 
find them at $20B1, then you need to change a few addresses in 
the patch code. Change the following lines as indicated: 


1170 PSDA -EQ $2092 


1190 .OR $20B1 

1000 %~------~------~-----~------------- 
1010 8 PATCH FOR .DA WITH COMMA LIST 
1020 &-----------~------------~-=-----== 
1030 & 
1040 : TO INSTALL THIS PATCH: 
1060 & 1. BRUN ASMDISK 4.0 
1070 & : RLOAL PATCH. DA. 
1080 % ; BLOAD PATCH. DA. 
1090 : 4. BSAVE ASMDISK 4.1°A$1000+L814FB 
1110 *-----------------~--~---~~-------- 

OODB- 1120 XP.VALUE .EQ@ $DB 

129B- 1140 GNC EQ $128B 

LPF A- 1150 EMI sEQ $19FA 

88E- 11460 GMN ~EQ $188E 

20B5- 1170 PSDA .EQ $20B5 
1190 : 20D4 REPLACES: 
1338 OF x oRe DA. 

20I4—- 4C BO 24 12710 JMP BOTH. BYTES (JMP $19B2) 

2ON7- 4€C C7 24 1220 JMP LOW.BYTE IMP $194D) 

ODA- 4€ BS 234 1230 : JMP HIGH. BYTE JMP $19D7 ) 
1250 OR $24B0 PATCH AREA 
1288 sorn.avies PareH. Da. ? 

24B0- AS DB 1380 LDA EXP.VALUE 

24B2— 20 FA 19 1290 JSR EMIT 
1300 HIGH. BYTE 

24R5- AS DC 1310 LIA EXP. VALUE+1 

54R7— 20 FA 19 1320 ALL JSR EMIT 

24BA- 20 8B 12 1330 JSR GNC 

24BN- C9 2C 1340 CMP 8’; COMMA? 

D4ARF- FO 03 1350 BEQ MORE 

24C1-— 40 BE 18 13460 JMP CMNT FINISHED 

24C4—- 4C BS 20 1370 MORE  JMP PSDA 
1380 LOW.BYTE 

24C7- AS DB 1390 LDA EXP.VALUE 

54C9- 18 1400 CLC 

24CA- 90 EB 1410 BCC ALL oe ALWAYS 9 


Decision 
Decision Systems 


S P.O. Box 13006 
ystems Denton, TX 76203 
817/382-6353 


SOFTWARE FOR THE APPLE II” 


ISAM-DS is an integrated set of Applesoft routines that gives in- 
dexed file capabilities to your BASIC programs. Retrieve by key, 
partial key or sequentially. Space from deleted records is auto- 
matically reused. Capabilities and performance that match products 
costing twice as much. 

$50 Disk, Applesoft. 


PBASIC-DS is a sophisticated preprocessor for strucured BASIC. 

Use advanced logic constructs such as IF...ELSE..., CASE, SELECT, 
and many more. Develop programs for Integer or Applesoft. Enjoy 
the power of structured logic at a fraction of the cost of PASCAL. 
$35 Disk, Applesoft (48K, ROM or Language Card). 


DSA-DS is a dis-assembler for 6502 code. Now you can easily dis- 
assemble any machine language program for the Apple and use the 
dis-assembled code directly as input to your assembler. Dis- 
assembles instructions and data. Produces code compatible with 
the S-C Assembler (version 4.0). 

$25 Disk, Applesoft (32K, ROM or Language Card). 


FORM-DS is a complete system for the definition of input and 
output forms. FORM-DS supplies the automatic checking of numeric 
input for acceptable range of values, automatic formatting of 
numeric output, and many more features. 

$25 Disk, Applesoft (32K, ROM or Language Card). 


UTIL-DS is a set of routines for use with Applesoft to format 
numeric output, selectively clear variables (Applesoft's CLEAR 
gets everything), improve error handling, and interface machine 
language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Apple- 
soft programs. 

$25 Disk, Applesoft. 


SPEED-DS is a routine to modify the statement linkage in an 
Applesoft program to speed its execution. Improvements of 5-20% 
are common. As a bonus, SPEED-DS includes machine language 
routines to speed string handling and reduce the need for garbage 
clean-up." Author: Lee Meador. 

$15 Disk, Applesoft (32K, ROM or Language Card). 


(Texas residents add 5% tax) 
(Add $4.00 for Foreign Mail) 


*Apple il is a registered trademark of the Apple Computer Co. 
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Block MOVE and COPY for Version 4.0 


How many times have you wished there was an easy way to move 

a bunch of lines of your source program to some other place? 

I know it happens to me, an I frequently wish the assembler 
had this capability. Now, at last, it is possible. I no 
longer have to use DELETE, SAVE, HIDE, MERGE, LOAD in a very 
complicated sequence just to move that 20 line subroutine from 
the middle to the end of my source program! 


The program as written assumes you have set up the USR command 
vector to jump to $800. You do this by stuffing a 0 into $1007 
and an 8 into $1008 (type $1007:00 08 as a command). Then if 
you type, for example,"USR 1100,1190,1800", a copy of lines 
1100 through 1190 will be inserted before line 1800. A word 
of caution: the lines in their new location will still have 
the old line numbers, until you RENUMBER. You can LIST, SAVE, 
and LOAD while the lines are out of sequence like this, but 
beware of doing any further editing! First, use the USR 
command to make the new copy of the lines; second, RENUMBER 
the program; third, DELETE the lines from their old location. 
Voila! You have moved them. 


I just know someone (maybe everyone) is going to think that I 
should have made this program do its own renumbering. fThe 
reason I am confident of this is that I feel the same way. 

But the program as it stands is useful, and I will refine it 
later. My plan is to add one more parameter which specifies 
the increment for the line numbers in their new location. Then 
let the third parameter be the new line number for the first 
line of the block being copied. The program will check whether 
making the copy will clobber any existing lines, and error out 
if so. If not, the copy will be made with its new line numbers. 
Then a question will be asked of the form "DO YOU WISH TO DELETE 
THE OLD LINES? (Y/N)". But for now, I will live with the more 
tedious but still very useful version you see here. 


I would suggest that you put the object code of this program 

on a binary file, and then create an EXEC text file that contains 
the patch line to set up the USR command and a BLOAD command 

for the COPY program. The quarterly AAL diskette contains just 
such a file. 


Now let me describe how the COPY program works. Notice that 
lines 1000-1060 are a summary of the operating syntax. Line 
1070, together with lines 2390 and 2400, make the last three 
symbols in the symbol table listing tell me the start, end, and 
length of the object code. These are very useful for writing 
the object code out to a binary file. (Of course, I could use 
the .TF directive and write it automatically.) 


Lines 1090-1220 define the page-zero locations the program uses. 
SS, SE, SL, and NEWPP are peculiar to this program; the rest 

of them are used by the monitor and the assembler. PP points 

to the beginning of the first source line in memory, and LOMEM 
is the lowest PP can go. AO, Al, A2, and A4Y are used to pass 
addresses to the Apple Monitor Memory Move subroutine. 
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Lines 1240-1280 define some addresses of routines inside the 
S-C ASSEMBLER II Version 4.0. SYNX is the Syntax Error routine. 
You will get a syntax error message if you type in less than 
three parameters with the USR command, if the first two paramet- 
ers are backwards or the same, if the block specified to be 
copied is empty, or if the target location is inside the block 
to be copied. MFER is the routine to print MEM FULL ERR, and 
you will get this error message if there is not room to make 

a copy; that is, the space between PP and LOMEM is less than 

the size of the block you want to copy. 


SCND is the assembler routine to scan an input line from the 
current position and look for a decimal number. If it finds 

a decimal number, it will convert the number to binary and store 
it in A2L and A2H. As explained on page 10 of the Upgrade 
manual for version 4.0, the first two parameters will have 
already been stored in AO and Al. 


SERTXT is the assembler routine to find a line in your source 
program, given the line number. It is called with the X- 
register containing the address of the first byte in page- 
-zero of the byte-pair containing the line number you are look- 
ing for. When SERTXT is finished, $E4,E5 points at the first 
byte of the line found, and $E6,$E7 points at the first byte 
of the next line. (Of course, if your line number could not 
be found, both pointers will point at the next larger line.) 


MON.MOVE is a program inside the Apple Monitor ROM. It will 
copy a block of memory whose first byte address is in Al, last 
byte address in A2, to a new place in memory starting at the 
byte address in A4. This is the routine used when you use the 
monitor "M" command. It works fine as long as the target is 
not inside the source block. 


Now to the COPY program itself. Briefly, the three parameters 
are checked for presence and consistency, and pointers are 

set up defining the area to be copied. A new value of PP is 
computed based on the length of this block, and I check to see 
if there is room in memory. Next I search for the target 
location, and check to make sure it is not inside the source 
block. (We don’t want any infinite loops!) If the target is 
higher in memory than the source block, I adjust the source 
block pointers by subtracting the block length from them. 

Then I move all source lines below the insertion point down 

in memory far enough to make a hole in the text into which 

the source block can be copied. Finally, I copy in the source 
block, and return. . 


some final comments.... The COPY program is very fast, so play 
with a little onascratch program to convince yourself it is 
working. If you don't want to type in the source, you can just 
enter the hex codes from the monitor, and BSAVE it. Or, you can 
order the Quarterly AAL diskette, which will have the source, 
object, and a textfile to EXEC for BLOADing and patching the 

USR vector. Or, if you are very patient, you can wait till 

next August for version 5.0 of the S-C ASSEMBLER II! 
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SBC SIL. 
STA NEWPP 
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ANNOUNCING A NEW UTILITY 


DISASM 1S A 2-PASS DISASSEMBLER-WITH-LABELS FOR USE WITH THE S-C AssemBLer (Ver 4.0) 
THIS MACHINE LANGUAGE PROGRAM QUICKLY DISASSEMBLES A USER SPECIFIED OBJECT CODE BLOCK 
AND GENERATES A SOURCE CODE TEXT FILE. -LABELS ARE AUTOMATICALLY CREATED AND CATA- 
GORIZED AS EITHER Pace Zero, EXTERWAL OR INTERNAL. MANY OTHER FEATURES ARE INCLUDED 
SucH AS: .EQ DEFINITIONS, AUTO LINE NUMBERING/TABS, ADDRESS SORTING AND SOURCE SEG- 
MENTATION FOR EASIER READING. UNDEFINED OPCODES AND HIDDEN CODE ARE ALSO HANDELED, 
DISASM 1S USER ORIENTED WITH PROMPTING AND ERROR CHECKING. 


TEXT FILE IS READ BY ASSEMBLER USING EXEC commanD. ADAPTABLE TO OTHER DISK-BASED 
ASSEMBLERS HAVING TEXT FILE CAPABILITY. 


ProGRaM DISKETTE AND USER DOCUMENTATION: $25.00 POSTPAID 
Intropuctory Bonus: A USEFUL MACHINE LANGUAGE DEBUGGING TOOL IS ALSO INCLUDED AT NO CHG 


AVAILABLE FROM: RAK-WARE 
4] Racew Roap 
West Orance, NJ 07052 


MAKE CHECKS/MONEY ORDERS PAYABLE TO: R. A. Kovacs 


Keeping Printer On After Error Message 


One customer wanted this, and maybe you would 
too. He needed the printer to stay enabled 
even if an editor or assembler error message 
was generated. S-C ASSEMBLER II Version 4.0 
shuts off any printer after any error occurs, 
so he couldn't get his printer to stay on 
long enough to get a listing. 


Here is a patch that will leave a printer 
"hooked in". 


1756:FO 24 (address of patch area) 
sS824UF0:A9 FF 85 D9 20 80 1F 4C 26 10 


After making the patch, you can BSAVE using 
A$1000, LS14FB. 


The patch is put at 24F0; if you have already 
put some other patch there, be sure to put 
this one somewhere else! Be sure you TEST it 
before you clobber or delete the original! 

Be sure you really WANT it before you even 
bother to type it in! 
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Handling 16-bit Comparisons 


It can be confusing enough in the 6502 to compare two single- 
byte values. Trying to remember that BCC means "branch if 
less than" (assuming that the values were considered to be 
unsigned values from 0-255), and that BCS means "branch if 
greater than or equal to" is enough to saturate my memory 
banks. I finally made a note on a card and tacked it up over 
my computer. Of course, if the values are considered to be 
Signed values, in the range of -128 through +127, the problem 
is compounded, to say the least. 


But what about comparing two values of two-bytes each? Like 
comparing to address pointers, for instance? A last resort 
would be to subtract one from the other, in two-byte arithmetic 
and then compare the difference to zero. At least that would 
be understandable! But let's try to do it a little better than 
that. There is an example of this kind of comparison in lines 
1310 through 1350 of the PRETTY.LIST program elsewhere in this 
issue of the Apple Assembly Line. Here is the segment: 


1310 .1 LDA SRCP 


1320 CMP HIMEM 
1330 LDA SRCP+1 
1340 SBC HIMEM+1 
1350 BCS .2 


The object is to determine whether the value in PP,PP+1 is 
still less than the value in HIMEM,HIMEM+1 or not. The low- 
order byte of each value is stored in the first byte of each 
byte-pair, and the high-order byte is stored in the second 
byte. If all we needed to compare was the low-order bytes, 
we could do it with lines 1310 and 1320 above. Carry would 
be cleared by the CMP instruction if (SRCP) was less than 
(HIMEM). (EF have just started using "(" and ")" to mean 
“the value stored in".) 


Now let’s use that carry bit and continue the comparison by 
actually subtracing the two high-order bytes. If the result 
of the subtraction leaves carry clear, we know that (SRCP) is 
indeed less than (HIMEM), all 16 bits of it. 


If you need to extend this to more than two bytes per value, 
you may. Just insert a pair of LDA-SBC instructions for each 
extra byte of precision, before the BCS instruction. 


For another example of this kind of comparison, you + Src look 
up the NXTA1 routine in the Apple Monitor listing, at $FCBA. 
This routine is used by the Monitor MOVE command, and several 
other routines. 


Apple Assembly Line is published monthly by S-C SOFTWARE, P. 0. Box 5537; 
Richardson, TX 75080. Subscription rate is $12/year, in the U.S.A., Canada, 
and Mexico. Other countries add $6/year for extra postage. All material 
herein is copyrighted by S-C SOFTWARE, all rights reserved. Unless other- 
wise indicated, all material herein is authored by Bob Sander-Cederlof. 
(Apple is a registered trademark of Apple Computer, Inc.) 
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